home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / arsonist.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  3KB  |  95 lines
  1. 1 FORT=8448TO8455:POKET,0:NEXT
  2. 2 FORT=8192TO8271:READD:POKET,D:NEXTT
  3. 3 POKE53281,12
  4. 4 POKE53270,216
  5. 5 POKE53272,24
  6. 6 POKE53282,11
  7. 7 POKE53283,15
  8. 8 FORT=8576TO8655:READD:POKET,D:NEXT
  9. 9 PRINT"[147]"
  10. 10 PRINT"*************************************"
  11. 15 FORX=1TO5
  12. 20 PRINT"1@A    @A @A @A @A       @A    @A @A1"
  13. 21 PRINT"1                                   1"
  14. 25 PRINT"1@A @A @A    @A   @A @A        @A @A1"
  15. 26 PRINT"1                                   1"
  16. 30 NEXT
  17. 40 PRINT"BCDEFG";PS
  18. 50 PRINT"[145]";TAB(25);"BCEG";1
  19. 90 L=12:SF=0
  20. 100 PP=32:EP=32:PC=8:EC=9:PL=1854:EL=1476:SF=0
  21. 105 POKEPL,PC:POKEEL,EC:FORGG=1TO1500:NEXT
  22. 110 POKEPL,PP
  23. 111 FORP9=1TO(L*17)-51:NEXT
  24. 115 GETF$:IFF$<>""THENM$=F$
  25. 120 IFM$="A"THENPL=PL-40:IFPL<1064THENPL=PL+40
  26. 130 IFM$="Z"THENPL=PL+40:IFPL>1864THENPL=PL-40
  27. 140 IFM$="."THENPL=PL+1:IFPL>1864THENPL=PL-1
  28. 150 IFM$=","THENPL=PL-1:IFPL<1064THENPL=PL+1
  29. 160 PP=PEEK(PL):IFPP<>32THENGOSUB270
  30. 165 IFPP=9THENPS=PS+150:POKEEL,32:EF=1
  31. 170 POKEPL,PC:IFEF=1THENEF=0:GOTO400
  32. 180 POKEEL,EP
  33. 190 F=INT(RND(0)*8)+1:IFF<5THENM=F:GOTO195
  34. 191 IFF>4THENIFPEEK(EL+80)<>32THENM=2
  35. 192 IFF>4THENIFPEEK(EL+1)<>32THENM=3
  36. 193 IFF>4THENIFPEEK(EL-1)<>32THENM=4
  37. 194 IFF>4THENIFPEEK(EL-80)<>32THENM=1
  38. 195 IFF>2THENIFPEEK(EL-40)=8THENM=2
  39. 196 IFF>2THENIFPEEK(EL-1)=8THENM=3
  40. 197 IFF>2THENIFPEEK(EL+1)=8THENM=4
  41. 198 IFF>2THENIFPEEK(EL+40)=8THENM=1
  42. 200 IFM=1THENEL=EL-40:IFEL<1064THENEL=EL+40
  43. 210 IFM=2THENEL=EL+40:IFEL>1864THENEL=EL-40
  44. 220 IFM=3THENEL=EL+1:IFEL>1864THENEL=EL-40
  45. 230 IFM=4THENEL=EL-1:IFEL<1064THENEL=EL+40
  46. 240 EP=PEEK(EL):IFEP<>32THENGOSUB340
  47. 250 POKEEL,EC
  48. 260 GOTO110
  49. 270 IFPP=9THENPS=PS+150+(10*(13-L)):POKEEL,32:EF=1
  50. 271 IF(PEEK(PL+54272)AND(14))<>14THENPOKEPL+54272,14:PS=PS+10+(13-L):SF=SF-1
  51. 272 PP=32
  52. 275 IFM$="A"THENPL=PL-1
  53. 280 IFM$="Z"THENPL=PL+1
  54. 290 IFM$="."THENPL=PL+40
  55. 300 IFM$=","THENPL=PL-40
  56. 310 IFPP=9THENPS=PS+100:POKEEL,32:EF=1
  57. 320 PRINT"BCDEFG";PS
  58. 330 RETURN
  59. 340 IFEP=8THENPS=PS+100:POKEEL,32:EF=1
  60. 341 IF(PEEK(EL+54272)AND(15))<>2THENPOKEEL+54272,2:SF=SF+1:IFSP>50THEN400
  61. 342 EP=32
  62. 350 IFM=1THENEL=EL+40
  63. 360 IFM=2THENEL=EL-40
  64. 370 IFM=3THENEL=EL-1
  65. 380 IFM=4THENEL=EL+1
  66. 390 RETURN
  67. 400 US=PS-SF:POKE53281,1:POKE53280,0
  68. 410 FORTT=PSTOUSSTEP-1
  69. 415 PRINT"               "
  70. 420 PRINT"BCDEFG";TT
  71. 425 IFPS<0THEN460
  72. 426 NEXT:PS=US:POKE53280,12:POKE53281,12
  73. 427 PRINT"               "
  74. 428 PRINT"BCDEFG";PS
  75. 430 L=L-1:IFL<3THEN460
  76. 440 PRINT"[145]";TAB(25);"BCEG";(13-L)
  77. 450 POKEEL,32:POKEPL,32:GOTO100
  78. 460 POKE53281,1:GOTO470
  79. 465 POKE53281,INT(RND(0)*7)+7
  80. 470 FORTC=1TO2500
  81. 475 GETR$:IFR$="R"THENRUN
  82. 480 NEXT
  83. 490 GOTO465
  84. 900 DATA3,13,55,223,39,39,47,42,192,112,220,247,184,184,184,168
  85. 910 DATA84,84,64,84,84,4,84,84,20,84,64,64,64,64,84,20
  86. 915 DATA16,84,68,68,68,68,84,16
  87. 920 DATA80,84,68,68,80,84,68,68,20,84,64,80,80,64,84,20
  88. 930 DATA20,20,20,0,0,20,20,20
  89. 931 DATA20,20,85,170,170,85,20,20,192,192,192,192,255,255,255,255
  90. 935 DATA84,68,68,68,68,68,68,84
  91. 940 DATA4,4,4,4,4,4,4,4,84,84,4,84,84,64,84,84
  92. 950 DATA84,84,4,84,84,4,84,84,68,68,68,84,4,4,4,4,84,84,64,84
  93. 960 DATA4,4,4,84,84,64,64,84,68,68,68,84,84,4,4,4,4,4,4,4
  94. 970 DATA84,68,68,84,68,68,68,84,84,68,68,84,4,4,4,4
  95.